﻿Public Class perPesquisa
    Inherits perPadrao
#Region "Variáveis"
    Dim objPadrao As New perPadrao
    Dim DS As New DataSet
#End Region

#Region "Funções"

    Public Function DSPesquisa(ByVal sql As String) As DataSet

        DSPesquisa = MyBase.executarConsulta(sql, "Tabela")

    End Function

#End Region
End Class
